Imports System.Data.SqlClient
Public Class cls_ensayo02detalle_

    Implements ICloneable

#Region "Variables ..."
    Private int_idensayo02detalle As Integer = 0
    Private int_idensayo02 As Integer = 0
    Private str_numerosoldadura As String = ""
    Private int_idreparacion As Integer = 0
    Private str_posicion As String = ""
    Private int_idpersonal1 As Integer = 0
    Private int_idproceso1 As Integer = 0
    Private int_idpersonal2 As Integer = 0
    Private int_idproceso2 As Integer = 0
    Private int_idpersonal3 As Integer = 0
    Private int_idproceso3 As Integer = 0
    Private int_idpersonal4 As Integer = 0
    Private int_idproceso4 As Integer = 0
    Private int_idpersonal5 As Integer = 0
    Private int_idproceso5 As Integer = 0
    Private int_idpersonal6 As Integer = 0
    Private int_idproceso6 As Integer = 0
    Private int_idpersonal7 As Integer = 0
    Private int_idproceso7 As Integer = 0
    Private int_idpersonal8 As Integer = 0
    Private int_idproceso8 As Integer = 0
    Private int_idpersonal9 As Integer = 0
    Private int_idproceso9 As Integer = 0
    Private int_idpersonal10 As Integer = 0
    Private int_idproceso10 As Integer = 0
    Private int_porosidad1 As Integer = 0
    Private int_inclusionescoria1 As Integer = 0
    Private int_inclusiontungsteno1 As Integer = 0
    Private int_faltapenetracion1 As Integer = 0
    Private int_faltafusion1 As Integer = 0
    Private int_socavacion1 As Integer = 0
    Private int_concavidad1 As Integer = 0
    Private int_protuberanciainterna1 As Integer = 0
    Private int_deslineacion1 As Integer = 0
    Private int_fisuras1 As Integer = 0
    Private int_peliculadefectuosa1 As Integer = 0
    Private int_porosidad2 As Integer = 0
    Private int_inclusionescoria2 As Integer = 0
    Private int_inclusiontungsteno2 As Integer = 0
    Private int_faltapenetracion2 As Integer = 0
    Private int_faltafusion2 As Integer = 0
    Private int_socavacion2 As Integer = 0
    Private int_concavidad2 As Integer = 0
    Private int_protuberanciainterna2 As Integer = 0
    Private int_deslineacion2 As Integer = 0
    Private int_fisuras2 As Integer = 0
    Private int_peliculadefectuosa2 As Integer = 0
    Private int_porosidad3 As Integer = 0
    Private int_inclusionescoria3 As Integer = 0
    Private int_inclusiontungsteno3 As Integer = 0
    Private int_faltapenetracion3 As Integer = 0
    Private int_faltafusion3 As Integer = 0
    Private int_socavacion3 As Integer = 0
    Private int_concavidad3 As Integer = 0
    Private int_protuberanciainterna3 As Integer = 0
    Private int_deslineacion3 As Integer = 0
    Private int_fisuras3 As Integer = 0
    Private int_peliculadefectuosa3 As Integer = 0
    Private int_idresultado As Integer = 0
    Private str_ubicaciondefectos As String = ""
    Private str_referencia As String = ""

    Private col_Items As Collections.Generic.List(Of cls_ensayo02detalle_) = Nothing
#End Region

    Public Overrides Function ToString() As String
        Return numerosoldadura
    End Function
#Region "Propiedades ..."
    Property idensayo02detalle() As Integer
        Get
            idensayo02detalle = int_idensayo02detalle
        End Get
        Set(ByVal value As Integer)
            int_idensayo02detalle = value
        End Set
    End Property
    Property idensayo02() As Integer
        Get
            idensayo02 = int_idensayo02
        End Get
        Set(ByVal value As Integer)
            int_idensayo02 = value
        End Set
    End Property
    Property numerosoldadura() As String
        Get
            numerosoldadura = str_numerosoldadura
        End Get
        Set(ByVal value As String)
            str_numerosoldadura = value
        End Set
    End Property
    Property idreparacion() As Integer
        Get
            idreparacion = int_idreparacion
        End Get
        Set(ByVal value As Integer)
            int_idreparacion = value
        End Set
    End Property
    Property posicion() As String
        Get
            posicion = str_posicion
        End Get
        Set(ByVal value As String)
            str_posicion = value
        End Set
    End Property
    Property idpersonal1() As Integer
        Get
            idpersonal1 = int_idpersonal1
        End Get
        Set(ByVal value As Integer)
            int_idpersonal1 = value
        End Set
    End Property
    Property idproceso1() As Integer
        Get
            idproceso1 = int_idproceso1
        End Get
        Set(ByVal value As Integer)
            int_idproceso1 = value
        End Set
    End Property
    Property idpersonal2() As Integer
        Get
            idpersonal2 = int_idpersonal2
        End Get
        Set(ByVal value As Integer)
            int_idpersonal2 = value
        End Set
    End Property
    Property idproceso2() As Integer
        Get
            idproceso2 = int_idproceso2
        End Get
        Set(ByVal value As Integer)
            int_idproceso2 = value
        End Set
    End Property
    Property idpersonal3() As Integer
        Get
            idpersonal3 = int_idpersonal3
        End Get
        Set(ByVal value As Integer)
            int_idpersonal3 = value
        End Set
    End Property
    Property idproceso3() As Integer
        Get
            idproceso3 = int_idproceso3
        End Get
        Set(ByVal value As Integer)
            int_idproceso3 = value
        End Set
    End Property
    Property idpersonal4() As Integer
        Get
            idpersonal4 = int_idpersonal4
        End Get
        Set(ByVal value As Integer)
            int_idpersonal4 = value
        End Set
    End Property
    Property idproceso4() As Integer
        Get
            idproceso4 = int_idproceso4
        End Get
        Set(ByVal value As Integer)
            int_idproceso4 = value
        End Set
    End Property
    Property idpersonal5() As Integer
        Get
            idpersonal5 = int_idpersonal5
        End Get
        Set(ByVal value As Integer)
            int_idpersonal5 = value
        End Set
    End Property
    Property idproceso5() As Integer
        Get
            idproceso5 = int_idproceso5
        End Get
        Set(ByVal value As Integer)
            int_idproceso5 = value
        End Set
    End Property
    Property idpersonal6() As Integer
        Get
            idpersonal6 = int_idpersonal6
        End Get
        Set(ByVal value As Integer)
            int_idpersonal6 = value
        End Set
    End Property
    Property idproceso6() As Integer
        Get
            idproceso6 = int_idproceso6
        End Get
        Set(ByVal value As Integer)
            int_idproceso6 = value
        End Set
    End Property
    Property idpersonal7() As Integer
        Get
            idpersonal7 = int_idpersonal7
        End Get
        Set(ByVal value As Integer)
            int_idpersonal7 = value
        End Set
    End Property
    Property idproceso7() As Integer
        Get
            idproceso7 = int_idproceso7
        End Get
        Set(ByVal value As Integer)
            int_idproceso7 = value
        End Set
    End Property
    Property idpersonal8() As Integer
        Get
            idpersonal8 = int_idpersonal8
        End Get
        Set(ByVal value As Integer)
            int_idpersonal8 = value
        End Set
    End Property
    Property idproceso8() As Integer
        Get
            idproceso8 = int_idproceso8
        End Get
        Set(ByVal value As Integer)
            int_idproceso8 = value
        End Set
    End Property
    Property idpersonal9() As Integer
        Get
            idpersonal9 = int_idpersonal9
        End Get
        Set(ByVal value As Integer)
            int_idpersonal9 = value
        End Set
    End Property
    Property idproceso9() As Integer
        Get
            idproceso9 = int_idproceso9
        End Get
        Set(ByVal value As Integer)
            int_idproceso9 = value
        End Set
    End Property
    Property idpersonal10() As Integer
        Get
            idpersonal10 = int_idpersonal10
        End Get
        Set(ByVal value As Integer)
            int_idpersonal10 = value
        End Set
    End Property
    Property idproceso10() As Integer
        Get
            idproceso10 = int_idproceso10
        End Get
        Set(ByVal value As Integer)
            int_idproceso10 = value
        End Set
    End Property
    Property porosidad1() As Integer
        Get
            porosidad1 = int_porosidad1
        End Get
        Set(ByVal value As Integer)
            int_porosidad1 = value
        End Set
    End Property
    Property inclusionescoria1() As Integer
        Get
            inclusionescoria1 = int_inclusionescoria1
        End Get
        Set(ByVal value As Integer)
            int_inclusionescoria1 = value
        End Set
    End Property
    Property inclusiontungsteno1() As Integer
        Get
            inclusiontungsteno1 = int_inclusiontungsteno1
        End Get
        Set(ByVal value As Integer)
            int_inclusiontungsteno1 = value
        End Set
    End Property
    Property faltapenetracion1() As Integer
        Get
            faltapenetracion1 = int_faltapenetracion1
        End Get
        Set(ByVal value As Integer)
            int_faltapenetracion1 = value
        End Set
    End Property
    Property faltafusion1() As Integer
        Get
            faltafusion1 = int_faltafusion1
        End Get
        Set(ByVal value As Integer)
            int_faltafusion1 = value
        End Set
    End Property
    Property socavacion1() As Integer
        Get
            socavacion1 = int_socavacion1
        End Get
        Set(ByVal value As Integer)
            int_socavacion1 = value
        End Set
    End Property
    Property concavidad1() As Integer
        Get
            concavidad1 = int_concavidad1
        End Get
        Set(ByVal value As Integer)
            int_concavidad1 = value
        End Set
    End Property
    Property protuberanciainterna1() As Integer
        Get
            protuberanciainterna1 = int_protuberanciainterna1
        End Get
        Set(ByVal value As Integer)
            int_protuberanciainterna1 = value
        End Set
    End Property
    Property deslineacion1() As Integer
        Get
            deslineacion1 = int_deslineacion1
        End Get
        Set(ByVal value As Integer)
            int_deslineacion1 = value
        End Set
    End Property
    Property fisuras1() As Integer
        Get
            fisuras1 = int_fisuras1
        End Get
        Set(ByVal value As Integer)
            int_fisuras1 = value
        End Set
    End Property
    Property peliculadefectuosa1() As Integer
        Get
            peliculadefectuosa1 = int_peliculadefectuosa1
        End Get
        Set(ByVal value As Integer)
            int_peliculadefectuosa1 = value
        End Set
    End Property
    Property porosidad2() As Integer
        Get
            porosidad2 = int_porosidad2
        End Get
        Set(ByVal value As Integer)
            int_porosidad2 = value
        End Set
    End Property
    Property inclusionescoria2() As Integer
        Get
            inclusionescoria2 = int_inclusionescoria2
        End Get
        Set(ByVal value As Integer)
            int_inclusionescoria2 = value
        End Set
    End Property
    Property inclusiontungsteno2() As Integer
        Get
            inclusiontungsteno2 = int_inclusiontungsteno2
        End Get
        Set(ByVal value As Integer)
            int_inclusiontungsteno2 = value
        End Set
    End Property
    Property faltapenetracion2() As Integer
        Get
            faltapenetracion2 = int_faltapenetracion2
        End Get
        Set(ByVal value As Integer)
            int_faltapenetracion2 = value
        End Set
    End Property
    Property faltafusion2() As Integer
        Get
            faltafusion2 = int_faltafusion2
        End Get
        Set(ByVal value As Integer)
            int_faltafusion2 = value
        End Set
    End Property
    Property socavacion2() As Integer
        Get
            socavacion2 = int_socavacion2
        End Get
        Set(ByVal value As Integer)
            int_socavacion2 = value
        End Set
    End Property
    Property concavidad2() As Integer
        Get
            concavidad2 = int_concavidad2
        End Get
        Set(ByVal value As Integer)
            int_concavidad2 = value
        End Set
    End Property
    Property protuberanciainterna2() As Integer
        Get
            protuberanciainterna2 = int_protuberanciainterna2
        End Get
        Set(ByVal value As Integer)
            int_protuberanciainterna2 = value
        End Set
    End Property
    Property deslineacion2() As Integer
        Get
            deslineacion2 = int_deslineacion2
        End Get
        Set(ByVal value As Integer)
            int_deslineacion2 = value
        End Set
    End Property
    Property fisuras2() As Integer
        Get
            fisuras2 = int_fisuras2
        End Get
        Set(ByVal value As Integer)
            int_fisuras2 = value
        End Set
    End Property
    Property peliculadefectuosa2() As Integer
        Get
            peliculadefectuosa2 = int_peliculadefectuosa2
        End Get
        Set(ByVal value As Integer)
            int_peliculadefectuosa2 = value
        End Set
    End Property
    Property porosidad3() As Integer
        Get
            porosidad3 = int_porosidad3
        End Get
        Set(ByVal value As Integer)
            int_porosidad3 = value
        End Set
    End Property
    Property inclusionescoria3() As Integer
        Get
            inclusionescoria3 = int_inclusionescoria3
        End Get
        Set(ByVal value As Integer)
            int_inclusionescoria3 = value
        End Set
    End Property
    Property inclusiontungsteno3() As Integer
        Get
            inclusiontungsteno3 = int_inclusiontungsteno3
        End Get
        Set(ByVal value As Integer)
            int_inclusiontungsteno3 = value
        End Set
    End Property
    Property faltapenetracion3() As Integer
        Get
            faltapenetracion3 = int_faltapenetracion3
        End Get
        Set(ByVal value As Integer)
            int_faltapenetracion3 = value
        End Set
    End Property
    Property faltafusion3() As Integer
        Get
            faltafusion3 = int_faltafusion3
        End Get
        Set(ByVal value As Integer)
            int_faltafusion3 = value
        End Set
    End Property
    Property socavacion3() As Integer
        Get
            socavacion3 = int_socavacion3
        End Get
        Set(ByVal value As Integer)
            int_socavacion3 = value
        End Set
    End Property
    Property concavidad3() As Integer
        Get
            concavidad3 = int_concavidad3
        End Get
        Set(ByVal value As Integer)
            int_concavidad3 = value
        End Set
    End Property
    Property protuberanciainterna3() As Integer
        Get
            protuberanciainterna3 = int_protuberanciainterna3
        End Get
        Set(ByVal value As Integer)
            int_protuberanciainterna3 = value
        End Set
    End Property
    Property deslineacion3() As Integer
        Get
            deslineacion3 = int_deslineacion3
        End Get
        Set(ByVal value As Integer)
            int_deslineacion3 = value
        End Set
    End Property
    Property fisuras3() As Integer
        Get
            fisuras3 = int_fisuras3
        End Get
        Set(ByVal value As Integer)
            int_fisuras3 = value
        End Set
    End Property
    Property peliculadefectuosa3() As Integer
        Get
            peliculadefectuosa3 = int_peliculadefectuosa3
        End Get
        Set(ByVal value As Integer)
            int_peliculadefectuosa3 = value
        End Set
    End Property
    Property idresultado() As Integer
        Get
            idresultado = int_idresultado
        End Get
        Set(ByVal value As Integer)
            int_idresultado = value
        End Set
    End Property
    Property ubicaciondefectos() As String
        Get
            ubicaciondefectos = str_ubicaciondefectos
        End Get
        Set(ByVal value As String)
            str_ubicaciondefectos = value
        End Set
    End Property
    Property referencia() As String
        Get
            referencia = str_referencia
        End Get
        Set(ByVal value As String)
            str_referencia = value
        End Set
    End Property

    Property Items() As Collections.Generic.List(Of cls_ensayo02detalle_)
        Get
            Items = col_Items
        End Get
        Set(ByVal value As Collections.Generic.List(Of cls_ensayo02detalle_))
            col_Items = value
        End Set
    End Property
 
#End Region

    Private Sub CargarColeccion(ByVal obj_Reader As SqlDataReader)
        col_Items = New Collections.Generic.List(Of cls_ensayo02detalle_)
        While obj_Reader.Read()
            Dim Elemento As New cls_ensayo02detalle_
            Elemento.int_idensayo02detalle = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02detalle")))

            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02"))) = False Then
                Elemento.int_idensayo02 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("numerosoldadura"))) = False Then
                Elemento.str_numerosoldadura = (obj_Reader.GetValue(obj_Reader.GetOrdinal("numerosoldadura")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idreparacion"))) = False Then
                Elemento.int_idreparacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idreparacion")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("posicion"))) = False Then
                Elemento.str_posicion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("posicion")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal1"))) = False Then
                Elemento.int_idpersonal1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1"))) = False Then
                Elemento.int_idproceso1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal2"))) = False Then
                Elemento.int_idpersonal2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2"))) = False Then
                Elemento.int_idproceso2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal3"))) = False Then
                Elemento.int_idpersonal3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3"))) = False Then
                Elemento.int_idproceso3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal4"))) = False Then
                Elemento.int_idpersonal4 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal4")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso4"))) = False Then
                Elemento.int_idproceso4 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso4")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal5"))) = False Then
                Elemento.int_idpersonal5 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal5")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso5"))) = False Then
                Elemento.int_idproceso5 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso5")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal6"))) = False Then
                Elemento.int_idpersonal6 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal6")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso6"))) = False Then
                Elemento.int_idproceso6 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso6")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal7"))) = False Then
                Elemento.int_idpersonal7 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal7")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso7"))) = False Then
                Elemento.int_idproceso7 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso7")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal8"))) = False Then
                Elemento.int_idpersonal8 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal8")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso8"))) = False Then
                Elemento.int_idproceso8 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso8")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal9"))) = False Then
                Elemento.int_idpersonal9 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal9")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso9"))) = False Then
                Elemento.int_idproceso9 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso9")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal10"))) = False Then
                Elemento.int_idpersonal10 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal10")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso10"))) = False Then
                Elemento.int_idproceso10 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso10")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad1"))) = False Then
                Elemento.int_porosidad1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria1"))) = False Then
                Elemento.int_inclusionescoria1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno1"))) = False Then
                Elemento.int_inclusiontungsteno1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion1"))) = False Then
                Elemento.int_faltapenetracion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion1"))) = False Then
                Elemento.int_faltafusion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion1"))) = False Then
                Elemento.int_socavacion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad1"))) = False Then
                Elemento.int_concavidad1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna1"))) = False Then
                Elemento.int_protuberanciainterna1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion1"))) = False Then
                Elemento.int_deslineacion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras1"))) = False Then
                Elemento.int_fisuras1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa1"))) = False Then
                Elemento.int_peliculadefectuosa1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad2"))) = False Then
                Elemento.int_porosidad2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria2"))) = False Then
                Elemento.int_inclusionescoria2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno2"))) = False Then
                Elemento.int_inclusiontungsteno2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion2"))) = False Then
                Elemento.int_faltapenetracion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion2"))) = False Then
                Elemento.int_faltafusion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion2"))) = False Then
                Elemento.int_socavacion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad2"))) = False Then
                Elemento.int_concavidad2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna2"))) = False Then
                Elemento.int_protuberanciainterna2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion2"))) = False Then
                Elemento.int_deslineacion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras2"))) = False Then
                Elemento.int_fisuras2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa2"))) = False Then
                Elemento.int_peliculadefectuosa2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad3"))) = False Then
                Elemento.int_porosidad3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria3"))) = False Then
                Elemento.int_inclusionescoria3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno3"))) = False Then
                Elemento.int_inclusiontungsteno3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion3"))) = False Then
                Elemento.int_faltapenetracion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion3"))) = False Then
                Elemento.int_faltafusion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion3"))) = False Then
                Elemento.int_socavacion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad3"))) = False Then
                Elemento.int_concavidad3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna3"))) = False Then
                Elemento.int_protuberanciainterna3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion3"))) = False Then
                Elemento.int_deslineacion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras3"))) = False Then
                Elemento.int_fisuras3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa3"))) = False Then
                Elemento.int_peliculadefectuosa3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idresultado"))) = False Then
                Elemento.int_idresultado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idresultado")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicaciondefectos"))) = False Then
                Elemento.str_ubicaciondefectos = (obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicaciondefectos")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("referencia"))) = False Then
                Elemento.str_referencia = (obj_Reader.GetValue(obj_Reader.GetOrdinal("referencia")))
            End If
            col_Items.Add(Elemento)
        End While
    End Sub

    Private Sub CargarVariables(ByVal obj_Reader As SqlDataReader)
        obj_Reader.Read()
        int_idensayo02detalle = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02detalle")))

        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02"))) = False Then
            int_idensayo02 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("numerosoldadura"))) = False Then
            str_numerosoldadura = (obj_Reader.GetValue(obj_Reader.GetOrdinal("numerosoldadura")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idreparacion"))) = False Then
            int_idreparacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idreparacion")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("posicion"))) = False Then
            str_posicion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("posicion")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal1"))) = False Then
            int_idpersonal1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1"))) = False Then
            int_idproceso1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal2"))) = False Then
            int_idpersonal2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2"))) = False Then
            int_idproceso2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal3"))) = False Then
            int_idpersonal3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3"))) = False Then
            int_idproceso3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal4"))) = False Then
            int_idpersonal4 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal4")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso4"))) = False Then
            int_idproceso4 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso4")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal5"))) = False Then
            int_idpersonal5 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal5")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso5"))) = False Then
            int_idproceso5 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso5")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal6"))) = False Then
            int_idpersonal6 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal6")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso6"))) = False Then
            int_idproceso6 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso6")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal7"))) = False Then
            int_idpersonal7 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal7")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso7"))) = False Then
            int_idproceso7 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso7")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal8"))) = False Then
            int_idpersonal8 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal8")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso8"))) = False Then
            int_idproceso8 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso8")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal9"))) = False Then
            int_idpersonal9 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal9")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso9"))) = False Then
            int_idproceso9 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso9")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal10"))) = False Then
            int_idpersonal10 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpersonal10")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso10"))) = False Then
            int_idproceso10 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso10")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad1"))) = False Then
            int_porosidad1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria1"))) = False Then
            int_inclusionescoria1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno1"))) = False Then
            int_inclusiontungsteno1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion1"))) = False Then
            int_faltapenetracion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion1"))) = False Then
            int_faltafusion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion1"))) = False Then
            int_socavacion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad1"))) = False Then
            int_concavidad1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna1"))) = False Then
            int_protuberanciainterna1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion1"))) = False Then
            int_deslineacion1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras1"))) = False Then
            int_fisuras1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa1"))) = False Then
            int_peliculadefectuosa1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad2"))) = False Then
            int_porosidad2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria2"))) = False Then
            int_inclusionescoria2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno2"))) = False Then
            int_inclusiontungsteno2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion2"))) = False Then
            int_faltapenetracion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion2"))) = False Then
            int_faltafusion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion2"))) = False Then
            int_socavacion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad2"))) = False Then
            int_concavidad2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna2"))) = False Then
            int_protuberanciainterna2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion2"))) = False Then
            int_deslineacion2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras2"))) = False Then
            int_fisuras2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa2"))) = False Then
            int_peliculadefectuosa2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad3"))) = False Then
            int_porosidad3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("porosidad3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria3"))) = False Then
            int_inclusionescoria3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusionescoria3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno3"))) = False Then
            int_inclusiontungsteno3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inclusiontungsteno3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion3"))) = False Then
            int_faltapenetracion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltapenetracion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion3"))) = False Then
            int_faltafusion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("faltafusion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion3"))) = False Then
            int_socavacion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("socavacion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad3"))) = False Then
            int_concavidad3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("concavidad3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna3"))) = False Then
            int_protuberanciainterna3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("protuberanciainterna3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion3"))) = False Then
            int_deslineacion3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("deslineacion3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras3"))) = False Then
            int_fisuras3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fisuras3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa3"))) = False Then
            int_peliculadefectuosa3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculadefectuosa3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idresultado"))) = False Then
            int_idresultado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idresultado")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicaciondefectos"))) = False Then
            str_ubicaciondefectos = (obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicaciondefectos")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("referencia"))) = False Then
            str_referencia = (obj_Reader.GetValue(obj_Reader.GetOrdinal("referencia")))
        End If
    End Sub

    Public Sub Nuevo(Optional ByVal ObtenerID As Boolean = False)
        Dim obj_Conexion As New cls_Conexion
        Try
  
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__Nuevo"
                .Parameters.Add("@idensayo02", SqlDbType.int).Value = int_idensayo02
                .Parameters.Add("@numerosoldadura", SqlDbType.nvarchar).Value = str_numerosoldadura
                .Parameters.Add("@idreparacion", SqlDbType.int).Value = int_idreparacion
                .Parameters.Add("@posicion", SqlDbType.nvarchar).Value = str_posicion
                .Parameters.Add("@idpersonal1", SqlDbType.int).Value = int_idpersonal1
                .Parameters.Add("@idproceso1", SqlDbType.int).Value = int_idproceso1
                .Parameters.Add("@idpersonal2", SqlDbType.int).Value = int_idpersonal2
                .Parameters.Add("@idproceso2", SqlDbType.int).Value = int_idproceso2
                .Parameters.Add("@idpersonal3", SqlDbType.int).Value = int_idpersonal3
                .Parameters.Add("@idproceso3", SqlDbType.int).Value = int_idproceso3
                .Parameters.Add("@idpersonal4", SqlDbType.int).Value = int_idpersonal4
                .Parameters.Add("@idproceso4", SqlDbType.int).Value = int_idproceso4
                .Parameters.Add("@idpersonal5", SqlDbType.int).Value = int_idpersonal5
                .Parameters.Add("@idproceso5", SqlDbType.int).Value = int_idproceso5
                .Parameters.Add("@idpersonal6", SqlDbType.int).Value = int_idpersonal6
                .Parameters.Add("@idproceso6", SqlDbType.int).Value = int_idproceso6
                .Parameters.Add("@idpersonal7", SqlDbType.int).Value = int_idpersonal7
                .Parameters.Add("@idproceso7", SqlDbType.int).Value = int_idproceso7
                .Parameters.Add("@idpersonal8", SqlDbType.int).Value = int_idpersonal8
                .Parameters.Add("@idproceso8", SqlDbType.int).Value = int_idproceso8
                .Parameters.Add("@idpersonal9", SqlDbType.int).Value = int_idpersonal9
                .Parameters.Add("@idproceso9", SqlDbType.int).Value = int_idproceso9
                .Parameters.Add("@idpersonal10", SqlDbType.int).Value = int_idpersonal10
                .Parameters.Add("@idproceso10", SqlDbType.int).Value = int_idproceso10
                .Parameters.Add("@porosidad1", SqlDbType.int).Value = int_porosidad1
                .Parameters.Add("@inclusionescoria1", SqlDbType.int).Value = int_inclusionescoria1
                .Parameters.Add("@inclusiontungsteno1", SqlDbType.int).Value = int_inclusiontungsteno1
                .Parameters.Add("@faltapenetracion1", SqlDbType.int).Value = int_faltapenetracion1
                .Parameters.Add("@faltafusion1", SqlDbType.int).Value = int_faltafusion1
                .Parameters.Add("@socavacion1", SqlDbType.int).Value = int_socavacion1
                .Parameters.Add("@concavidad1", SqlDbType.int).Value = int_concavidad1
                .Parameters.Add("@protuberanciainterna1", SqlDbType.int).Value = int_protuberanciainterna1
                .Parameters.Add("@deslineacion1", SqlDbType.int).Value = int_deslineacion1
                .Parameters.Add("@fisuras1", SqlDbType.int).Value = int_fisuras1
                .Parameters.Add("@peliculadefectuosa1", SqlDbType.int).Value = int_peliculadefectuosa1
                .Parameters.Add("@porosidad2", SqlDbType.int).Value = int_porosidad2
                .Parameters.Add("@inclusionescoria2", SqlDbType.int).Value = int_inclusionescoria2
                .Parameters.Add("@inclusiontungsteno2", SqlDbType.int).Value = int_inclusiontungsteno2
                .Parameters.Add("@faltapenetracion2", SqlDbType.int).Value = int_faltapenetracion2
                .Parameters.Add("@faltafusion2", SqlDbType.int).Value = int_faltafusion2
                .Parameters.Add("@socavacion2", SqlDbType.int).Value = int_socavacion2
                .Parameters.Add("@concavidad2", SqlDbType.int).Value = int_concavidad2
                .Parameters.Add("@protuberanciainterna2", SqlDbType.int).Value = int_protuberanciainterna2
                .Parameters.Add("@deslineacion2", SqlDbType.int).Value = int_deslineacion2
                .Parameters.Add("@fisuras2", SqlDbType.int).Value = int_fisuras2
                .Parameters.Add("@peliculadefectuosa2", SqlDbType.int).Value = int_peliculadefectuosa2
                .Parameters.Add("@porosidad3", SqlDbType.int).Value = int_porosidad3
                .Parameters.Add("@inclusionescoria3", SqlDbType.int).Value = int_inclusionescoria3
                .Parameters.Add("@inclusiontungsteno3", SqlDbType.int).Value = int_inclusiontungsteno3
                .Parameters.Add("@faltapenetracion3", SqlDbType.int).Value = int_faltapenetracion3
                .Parameters.Add("@faltafusion3", SqlDbType.int).Value = int_faltafusion3
                .Parameters.Add("@socavacion3", SqlDbType.int).Value = int_socavacion3
                .Parameters.Add("@concavidad3", SqlDbType.int).Value = int_concavidad3
                .Parameters.Add("@protuberanciainterna3", SqlDbType.int).Value = int_protuberanciainterna3
                .Parameters.Add("@deslineacion3", SqlDbType.int).Value = int_deslineacion3
                .Parameters.Add("@fisuras3", SqlDbType.int).Value = int_fisuras3
                .Parameters.Add("@peliculadefectuosa3", SqlDbType.int).Value = int_peliculadefectuosa3
                .Parameters.Add("@idresultado", SqlDbType.int).Value = int_idresultado
                .Parameters.Add("@ubicaciondefectos", SqlDbType.nvarchar).Value = str_ubicaciondefectos
                .Parameters.Add("@referencia", SqlDbType.nvarchar).Value = str_referencia
                .ExecuteNonQuery()
            End With
            If ObtenerID Then
                CargarUltimo()
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Crear el registro de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Sub Modificar()
        Dim obj_Conexion As New cls_Conexion
        Try
         
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__Modificar"
                .Parameters.Add("@idensayo02detalle", SqlDbType.int).Value = int_idensayo02detalle
                .Parameters.Add("@idensayo02", SqlDbType.int).Value = int_idensayo02
                .Parameters.Add("@numerosoldadura", SqlDbType.nvarchar).Value = str_numerosoldadura
                .Parameters.Add("@idreparacion", SqlDbType.int).Value = int_idreparacion
                .Parameters.Add("@posicion", SqlDbType.nvarchar).Value = str_posicion
                .Parameters.Add("@idpersonal1", SqlDbType.int).Value = int_idpersonal1
                .Parameters.Add("@idproceso1", SqlDbType.int).Value = int_idproceso1
                .Parameters.Add("@idpersonal2", SqlDbType.int).Value = int_idpersonal2
                .Parameters.Add("@idproceso2", SqlDbType.int).Value = int_idproceso2
                .Parameters.Add("@idpersonal3", SqlDbType.int).Value = int_idpersonal3
                .Parameters.Add("@idproceso3", SqlDbType.int).Value = int_idproceso3
                .Parameters.Add("@idpersonal4", SqlDbType.int).Value = int_idpersonal4
                .Parameters.Add("@idproceso4", SqlDbType.int).Value = int_idproceso4
                .Parameters.Add("@idpersonal5", SqlDbType.int).Value = int_idpersonal5
                .Parameters.Add("@idproceso5", SqlDbType.int).Value = int_idproceso5
                .Parameters.Add("@idpersonal6", SqlDbType.int).Value = int_idpersonal6
                .Parameters.Add("@idproceso6", SqlDbType.int).Value = int_idproceso6
                .Parameters.Add("@idpersonal7", SqlDbType.int).Value = int_idpersonal7
                .Parameters.Add("@idproceso7", SqlDbType.int).Value = int_idproceso7
                .Parameters.Add("@idpersonal8", SqlDbType.int).Value = int_idpersonal8
                .Parameters.Add("@idproceso8", SqlDbType.int).Value = int_idproceso8
                .Parameters.Add("@idpersonal9", SqlDbType.int).Value = int_idpersonal9
                .Parameters.Add("@idproceso9", SqlDbType.int).Value = int_idproceso9
                .Parameters.Add("@idpersonal10", SqlDbType.int).Value = int_idpersonal10
                .Parameters.Add("@idproceso10", SqlDbType.int).Value = int_idproceso10
                .Parameters.Add("@porosidad1", SqlDbType.int).Value = int_porosidad1
                .Parameters.Add("@inclusionescoria1", SqlDbType.int).Value = int_inclusionescoria1
                .Parameters.Add("@inclusiontungsteno1", SqlDbType.int).Value = int_inclusiontungsteno1
                .Parameters.Add("@faltapenetracion1", SqlDbType.int).Value = int_faltapenetracion1
                .Parameters.Add("@faltafusion1", SqlDbType.int).Value = int_faltafusion1
                .Parameters.Add("@socavacion1", SqlDbType.int).Value = int_socavacion1
                .Parameters.Add("@concavidad1", SqlDbType.int).Value = int_concavidad1
                .Parameters.Add("@protuberanciainterna1", SqlDbType.int).Value = int_protuberanciainterna1
                .Parameters.Add("@deslineacion1", SqlDbType.int).Value = int_deslineacion1
                .Parameters.Add("@fisuras1", SqlDbType.int).Value = int_fisuras1
                .Parameters.Add("@peliculadefectuosa1", SqlDbType.int).Value = int_peliculadefectuosa1
                .Parameters.Add("@porosidad2", SqlDbType.int).Value = int_porosidad2
                .Parameters.Add("@inclusionescoria2", SqlDbType.int).Value = int_inclusionescoria2
                .Parameters.Add("@inclusiontungsteno2", SqlDbType.int).Value = int_inclusiontungsteno2
                .Parameters.Add("@faltapenetracion2", SqlDbType.int).Value = int_faltapenetracion2
                .Parameters.Add("@faltafusion2", SqlDbType.int).Value = int_faltafusion2
                .Parameters.Add("@socavacion2", SqlDbType.int).Value = int_socavacion2
                .Parameters.Add("@concavidad2", SqlDbType.int).Value = int_concavidad2
                .Parameters.Add("@protuberanciainterna2", SqlDbType.int).Value = int_protuberanciainterna2
                .Parameters.Add("@deslineacion2", SqlDbType.int).Value = int_deslineacion2
                .Parameters.Add("@fisuras2", SqlDbType.int).Value = int_fisuras2
                .Parameters.Add("@peliculadefectuosa2", SqlDbType.int).Value = int_peliculadefectuosa2
                .Parameters.Add("@porosidad3", SqlDbType.int).Value = int_porosidad3
                .Parameters.Add("@inclusionescoria3", SqlDbType.int).Value = int_inclusionescoria3
                .Parameters.Add("@inclusiontungsteno3", SqlDbType.int).Value = int_inclusiontungsteno3
                .Parameters.Add("@faltapenetracion3", SqlDbType.int).Value = int_faltapenetracion3
                .Parameters.Add("@faltafusion3", SqlDbType.int).Value = int_faltafusion3
                .Parameters.Add("@socavacion3", SqlDbType.int).Value = int_socavacion3
                .Parameters.Add("@concavidad3", SqlDbType.int).Value = int_concavidad3
                .Parameters.Add("@protuberanciainterna3", SqlDbType.int).Value = int_protuberanciainterna3
                .Parameters.Add("@deslineacion3", SqlDbType.int).Value = int_deslineacion3
                .Parameters.Add("@fisuras3", SqlDbType.int).Value = int_fisuras3
                .Parameters.Add("@peliculadefectuosa3", SqlDbType.int).Value = int_peliculadefectuosa3
                .Parameters.Add("@idresultado", SqlDbType.int).Value = int_idresultado
                .Parameters.Add("@ubicaciondefectos", SqlDbType.nvarchar).Value = str_ubicaciondefectos
                .Parameters.Add("@referencia", SqlDbType.nvarchar).Value = str_referencia
                .ExecuteNonQuery()
            End With
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Modificar el registro de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Sub Eliminar(ByVal idensayo02detalle As Integer)
        Dim obj_Conexion As New cls_Conexion
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__Eliminar"
                .Parameters.Add("@idensayo02detalle", SqlDbType.int).Value = idensayo02detalle
                .ExecuteNonQuery()
            End With
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Eliminar el registro de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Function Buscar(ByVal idensayo02detalle As Integer) As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            Buscar = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__Buscar"
                .Parameters.Add("@idensayo02detalle", SqlDbType.int).Value = idensayo02detalle
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
                Buscar = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Buscar el registro de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Sub CargarUltimo()
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__CargarUltimo"
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarUltimo registro de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Sub

    Public Function CargarTodos() As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            CargarTodos = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__CargarTodos"
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarColeccion(obj_Reader)
                CargarTodos = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarTodos los registros de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Function CargarXidensayo02(ByVal prm_idensayo02 As Integer) As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            CargarXidensayo02 = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02detalle__CargarXidensayo02"
                .Parameters.Add("@idensayo02", SqlDbType.Int).Value = prm_idensayo02
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarColeccion(obj_Reader)
                CargarXidensayo02 = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarXidensayo02 los registros de ensayo02detalle_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj_ensayo02detalle_Clon As New cls_ensayo02detalle_
        obj_ensayo02detalle_Clon.int_idensayo02detalle = Me.int_idensayo02detalle
        obj_ensayo02detalle_Clon.int_idensayo02 = Me.int_idensayo02
        obj_ensayo02detalle_Clon.str_numerosoldadura = Me.str_numerosoldadura
        obj_ensayo02detalle_Clon.int_idreparacion = Me.int_idreparacion
        obj_ensayo02detalle_Clon.str_posicion = Me.str_posicion
        obj_ensayo02detalle_Clon.int_idpersonal1 = Me.int_idpersonal1
        obj_ensayo02detalle_Clon.int_idproceso1 = Me.int_idproceso1
        obj_ensayo02detalle_Clon.int_idpersonal2 = Me.int_idpersonal2
        obj_ensayo02detalle_Clon.int_idproceso2 = Me.int_idproceso2
        obj_ensayo02detalle_Clon.int_idpersonal3 = Me.int_idpersonal3
        obj_ensayo02detalle_Clon.int_idproceso3 = Me.int_idproceso3
        obj_ensayo02detalle_Clon.int_idpersonal4 = Me.int_idpersonal4
        obj_ensayo02detalle_Clon.int_idproceso4 = Me.int_idproceso4
        obj_ensayo02detalle_Clon.int_idpersonal5 = Me.int_idpersonal5
        obj_ensayo02detalle_Clon.int_idproceso5 = Me.int_idproceso5
        obj_ensayo02detalle_Clon.int_idpersonal6 = Me.int_idpersonal6
        obj_ensayo02detalle_Clon.int_idproceso6 = Me.int_idproceso6
        obj_ensayo02detalle_Clon.int_idpersonal7 = Me.int_idpersonal7
        obj_ensayo02detalle_Clon.int_idproceso7 = Me.int_idproceso7
        obj_ensayo02detalle_Clon.int_idpersonal8 = Me.int_idpersonal8
        obj_ensayo02detalle_Clon.int_idproceso8 = Me.int_idproceso8
        obj_ensayo02detalle_Clon.int_idpersonal9 = Me.int_idpersonal9
        obj_ensayo02detalle_Clon.int_idproceso9 = Me.int_idproceso9
        obj_ensayo02detalle_Clon.int_idpersonal10 = Me.int_idpersonal10
        obj_ensayo02detalle_Clon.int_idproceso10 = Me.int_idproceso10
        obj_ensayo02detalle_Clon.int_porosidad1 = Me.int_porosidad1
        obj_ensayo02detalle_Clon.int_inclusionescoria1 = Me.int_inclusionescoria1
        obj_ensayo02detalle_Clon.int_inclusiontungsteno1 = Me.int_inclusiontungsteno1
        obj_ensayo02detalle_Clon.int_faltapenetracion1 = Me.int_faltapenetracion1
        obj_ensayo02detalle_Clon.int_faltafusion1 = Me.int_faltafusion1
        obj_ensayo02detalle_Clon.int_socavacion1 = Me.int_socavacion1
        obj_ensayo02detalle_Clon.int_concavidad1 = Me.int_concavidad1
        obj_ensayo02detalle_Clon.int_protuberanciainterna1 = Me.int_protuberanciainterna1
        obj_ensayo02detalle_Clon.int_deslineacion1 = Me.int_deslineacion1
        obj_ensayo02detalle_Clon.int_fisuras1 = Me.int_fisuras1
        obj_ensayo02detalle_Clon.int_peliculadefectuosa1 = Me.int_peliculadefectuosa1
        obj_ensayo02detalle_Clon.int_porosidad2 = Me.int_porosidad2
        obj_ensayo02detalle_Clon.int_inclusionescoria2 = Me.int_inclusionescoria2
        obj_ensayo02detalle_Clon.int_inclusiontungsteno2 = Me.int_inclusiontungsteno2
        obj_ensayo02detalle_Clon.int_faltapenetracion2 = Me.int_faltapenetracion2
        obj_ensayo02detalle_Clon.int_faltafusion2 = Me.int_faltafusion2
        obj_ensayo02detalle_Clon.int_socavacion2 = Me.int_socavacion2
        obj_ensayo02detalle_Clon.int_concavidad2 = Me.int_concavidad2
        obj_ensayo02detalle_Clon.int_protuberanciainterna2 = Me.int_protuberanciainterna2
        obj_ensayo02detalle_Clon.int_deslineacion2 = Me.int_deslineacion2
        obj_ensayo02detalle_Clon.int_fisuras2 = Me.int_fisuras2
        obj_ensayo02detalle_Clon.int_peliculadefectuosa2 = Me.int_peliculadefectuosa2
        obj_ensayo02detalle_Clon.int_porosidad3 = Me.int_porosidad3
        obj_ensayo02detalle_Clon.int_inclusionescoria3 = Me.int_inclusionescoria3
        obj_ensayo02detalle_Clon.int_inclusiontungsteno3 = Me.int_inclusiontungsteno3
        obj_ensayo02detalle_Clon.int_faltapenetracion3 = Me.int_faltapenetracion3
        obj_ensayo02detalle_Clon.int_faltafusion3 = Me.int_faltafusion3
        obj_ensayo02detalle_Clon.int_socavacion3 = Me.int_socavacion3
        obj_ensayo02detalle_Clon.int_concavidad3 = Me.int_concavidad3
        obj_ensayo02detalle_Clon.int_protuberanciainterna3 = Me.int_protuberanciainterna3
        obj_ensayo02detalle_Clon.int_deslineacion3 = Me.int_deslineacion3
        obj_ensayo02detalle_Clon.int_fisuras3 = Me.int_fisuras3
        obj_ensayo02detalle_Clon.int_peliculadefectuosa3 = Me.int_peliculadefectuosa3
        obj_ensayo02detalle_Clon.int_idresultado = Me.int_idresultado
        obj_ensayo02detalle_Clon.str_ubicaciondefectos = Me.str_ubicaciondefectos
        obj_ensayo02detalle_Clon.str_referencia = Me.str_referencia
        obj_ensayo02detalle_Clon.col_Items = Me.col_Items
        Return obj_ensayo02detalle_Clon
    End Function

End Class
